home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / cskiptochar.e < prev    next >
Text File  |  1980-01-05  |  232b  |  12 lines
  1. OPT TURBO
  2.  
  3. PROC cSkipToChar(char, pos:PTR TO CHAR)
  4.   /* Finds the specified character in theString and returns its position. */
  5.   WHILE pos[]
  6.     IF pos[]=char THEN RETURN pos
  7.     INC pos
  8.   ENDWHILE
  9. ENDPROC pos
  10.   /* cSkipToChar */
  11.  
  12.